home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.backup < prev    next >
Text File  |  2000-04-19  |  28KB  |  562 lines
  1. G4C
  2. ; $VER: menu.backup Rev.001 © by Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 100 95 "Sicherung"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. ;=== Abbruch Button
  13. XButton 0 0 100 15 "Abbrechen [_X]"
  14.     GadFont xHelvetica.font 11 010
  15.     GadKey "x"
  16.     GuiQuit #This
  17.  
  18. XButton 0 15 100 15 "Site Sicherung"
  19.     GadFont xHelvetica.font 11 000
  20.     GuiClose #This
  21.     lvuse HTMLEXT 1
  22.     EXTRACT %SiteBakArcDir CLEAN bakdir
  23.     JoinFile $bakdir $*SITENAME bakfile
  24.     AppVar bakfile ".lha"
  25.     ifexists file "t:htmlext/backup.list"
  26.         delete t:htmlext/backup.list
  27.     endif
  28.     cli 'echo "$*SITENAME HomePage Backup" >t:htmlext/backup.list'
  29.     cli 'echo "====================================================================" >>t:htmlext/backup.list'
  30.     cli 'echo " " >>t:htmlext/backup.list'
  31.     cli 'echo "Backuparchiv: $bakfile" >>t:htmlext/backup.list'
  32.     cli 'echo " " >>t:htmlext/backup.list'
  33.     ifexists file $bakfile
  34.         cli 'list $bakfile LFORMAT="%D" >env:.htmlext.tmp'
  35.         SetVar filedat $.htmlext.tmp
  36.         cli 'list $bakfile LFORMAT="%L" >env:.htmlext.tmp'
  37.         SetVar filesize $.htmlext.tmp
  38.         cli 'list $bakfile LFORMAT="%T" >env:.htmlext.tmp'
  39.         SetVar filetime $.htmlext.tmp
  40.         cli 'list $bakfile LFORMAT="%C" >env:.htmlext.tmp'
  41.         SetVar filecom $.htmlext.tmp
  42.         EZReq "Site Backup erstellen/rücksichern, letztes Backup:\n\nDatei: $bakfile\nGrösse: $filesize bytes\nDatum: $filedat\nZeit: $filetime\nKommentar: $filecom" "_1 Updaten|_2 Neues Backup|_3 Rücksichern|[_X] Abbrechen" bakreq
  43.         if $bakreq = 1
  44.             Update "Infobar" 1 "Update $bakfile ... bitte haben Sie etwas Geduld!"
  45.             cli 'lha -r u $bakfile $*SITEDIR >>t:htmlext/backup.list'
  46.             Update "Infobar" 1 " "
  47.             cli 'multiview t:htmlext/backup.list'
  48.         elseif $bakreq = 2
  49.             Update "Infobar" 1 "Lösche bestehende Archiv Datei $bakfile ..."
  50.             cli 'delete $bakfile FORCE'
  51.             Update "Infobar" 1 "Erzeuge Archiv $bakfile ... bitte haben Sie etwas Geduld!"
  52.             cli 'lha -r a $bakfile $*SITEDIR >>t:htmlext/backup.list'
  53.             Update "Infobar" 1 " "
  54.             cli 'multiview t:htmlext/backup.list'
  55.         elseif $bakreq = 3
  56.             Update "Infobar" 1 "Sichere Archiv zurück nach $*SITEDIR ... bitte haben Sie etwas Geduld!"
  57.             cli 'lha x $bakfile $*SITEDIR >>t:htmlext/backup.list'
  58.             Update "Infobar" 1 " "
  59.             cli 'multiview t:htmlext/backup.list'
  60.         endif
  61.     else
  62.         EZReq "Site Backup erstellen/rücksichern:\n\nKein bestehendes Backup!" "_1 Neues Backup|[_X] Abbrechen" bakreq
  63.         if $bakreq = 1
  64.             cli 'delete $bakfile FORCE'
  65.             cli 'lha -r a $bakfile $*SITEDIR >>t:htmlext/backup.list'
  66.             cli 'multiview t:htmlext/backup.list'
  67.         endif
  68.     endif
  69.     GuiQuit #This
  70.  
  71. XButton 0 30 100 15 "Projekt Sicherung"
  72.     GadFont xHelvetica.font 11 000
  73.     GuiClose #This
  74.     lvuse HTMLEXT 1
  75.     EXTRACT %SiteBakArcDir CLEAN bakdir
  76.     JoinFile $bakdir $*SITENAME bakfile
  77.     AppVar bakfile "_pjdata.lha"
  78.     ifexists file "t:htmlext/backup.list"
  79.         delete t:htmlext/backup.list
  80.     endif
  81.     cli 'echo "$*SITENAME HomePage Projectdata Backup" >t:htmlext/backup.list'
  82.     cli 'echo "====================================================================" >>t:htmlext/backup.list'
  83.     cli 'echo " " >>t:htmlext/backup.list'
  84.     cli 'echo "Backuparchiv: $bakfile" >>t:htmlext/backup.list'
  85.     cli 'echo " " >>t:htmlext/backup.list'
  86.     ifexists file $bakfile
  87.         cli 'list $bakfile LFORMAT="%D" >env:.htmlext.tmp'
  88.         SetVar filedat $.htmlext.tmp
  89.         cli 'list $bakfile LFORMAT="%L" >env:.htmlext.tmp'
  90.         SetVar filesize $.htmlext.tmp
  91.         cli 'list $bakfile LFORMAT="%T" >env:.htmlext.tmp'
  92.         SetVar filetime $.htmlext.tmp
  93.         cli 'list $bakfile LFORMAT="%C" >env:.htmlext.tmp'
  94.         SetVar filecom $.htmlext.tmp
  95.         EZReq "Site Backup erstellen/rücksichern, letztes Backup:\n\nDatei: $bakfile\nGrösse: $filesize bytes\nDatum: $filedat\nZeit: $filetime\nKommentar: $filecom" "_1 Updaten|_2 Neues Backup|_3 Rücksichern|[_X] Abbrechen" bakreq
  96.         if $bakreq = 1
  97.             Update "Infobar" 1 "Update $bakfile ... bitte haben Sie etwas Geduld!"
  98.             cli 'lha -r u $bakfile $*SITEDATADIR >>t:htmlext/backup.list'
  99.             Update "Infobar" 1 " "
  100.             cli 'multiview t:htmlext/backup.list'
  101.         elseif $bakreq = 2
  102.             Update "Infobar" 1 "Lösche bestehende Archiv Datei $bakfile ..."
  103.             cli 'delete $bakfile FORCE'
  104.             Update "Infobar" 1 "Erzeuge Archiv $bakfile ... bitte haben Sie etwas Geduld!"
  105.             cli 'lha -r a $bakfile $*SITEDATADIR >>t:htmlext/backup.list'
  106.             Update "Infobar" 1 " "
  107.             cli 'multiview t:htmlext/backup.list'
  108.         elseif $bakreq = 3
  109.             Update "Infobar" 1 "Sichere Archiv zurück nach $*SITEDATADIR ... bitte haben Sie etwas Geduld!"
  110.             cli 'lha x $bakfile $*SITEDATADIR >>t:htmlext/backup.list'
  111.             Update "Infobar" 1 " "
  112.             cli 'multiview t:htmlext/backup.list'
  113.         endif
  114.     else
  115.         EZReq "Site Projectdata Backup erstellen:\n\nKein bestehendes Backup!" "_1 Neues Backup|[_X] Abbrechen" bakreq
  116.         if $bakreq = 1
  117.             cli 'delete $bakfile FORCE'
  118.             cli 'lha -r a $bakfile $*SITEDATADIR >>t:htmlext/backup.list'
  119.             cli 'multiview t:htmlext/backup.list'
  120.         endif
  121.     endif
  122.     GuiQuit #This
  123.  
  124. XButton 0 50 100 15 "Kompl. Spiegel"
  125.     GadFont xHelvetica.font 11 000
  126.     GuiClose #This
  127.     EZREQ "Site & Projektdaten Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod
  128.     if $spmod = 1
  129.         GoSub #This "AllToMed"
  130.     elseif $spmod = 2
  131.         GoSub #This "AllToLoc"
  132.     endif
  133.     GuiQuit #This
  134.  
  135. XButton 0 65 100 15 "Site Spiegel"
  136.     GadFont xHelvetica.font 11 000
  137.     GuiClose #This
  138.     EZREQ "Site Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod
  139.     if $spmod = 1
  140.         GoSub #This "SiteToMed"
  141.     elseif $spmod = 2
  142.         GoSub #This "SiteToLoc"
  143.     endif
  144.     GuiQuit #This
  145.  
  146. XButton 0 80 100 15 "Projekt Spiegel"
  147.     GadFont xHelvetica.font 11 000
  148.     GuiClose #This
  149.     EZREQ "Projekt Daten Spiegel Funktion:\n\nWollen Sie spiegeln,\noder rücksichern?" "_1 Spiegeln|_2 Rücksichern|[_X] Abbrechen" spmod
  150.     if $spmod = 1
  151.         GoSub #This "ProjToMed"
  152.     elseif $spmod = 2
  153.         GoSub #This "ProjToLoc"
  154.     endif
  155.     GuiQuit #This
  156.  
  157.  
  158.  
  159.  
  160. ;Spiegel Routinen: Sichern
  161. xRoutine "AllToMed"
  162.     lvuse HTMLEXT 1
  163.     EXTRACT %SiteSpiegelDir CLEAN mirrordir
  164.     EXTRACT %SitePath CLEAN Sitedir
  165.     EZREQ "Bisherige Spiegeldaten löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  166.     if $spdel = 1
  167.         guiload htmlext:gui/func.mirror
  168.         Update func.mirror 2 "Alles Spiegeln"
  169.         Update func.mirror 1 "Erstelle Site Rapport"
  170.         GuiWindow HTMLEXT WAIT
  171.         GuiWindow #This WAIT
  172.         cli 'echo "$*SITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  173.         cli 'echo " " >>t:htmlext/mirror.list'
  174.         cli 'echo "Von:  $Sitedir" >>t:htmlext/mirror.list'
  175.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  176.         cli 'echo " " >>t:htmlext/mirror.list'
  177.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  178.         cli 'echo " " >>t:htmlext/mirror.list'
  179.         Update "func.mirror" 1 "Kopiere Site Daten ..."
  180.         Update "Infobar" 1 "Kopiere $Sitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  181.         cli 'copy $Sitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  182.  
  183.         lvuse HTMLEXT 1
  184.         EXTRACT %SiteDataMirror CLEAN mirrordir
  185.         EXTRACT %SiteDataPath CLEAN pjddir
  186.         Update "func.mirror" 1 "Erstelle Daten Raport ..."
  187.         cli 'echo " " >>t:htmlext/mirror.list'
  188.         cli 'echo " " >>t:htmlext/mirror.list'
  189.         cli 'echo "$*SITENAME :  Project Data Spiegel Rapport" >>t:htmlext/mirror.list'
  190.         cli 'echo " " >>t:htmlext/mirror.list'
  191.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  192.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  193.         cli 'echo " " >>t:htmlext/mirror.list'
  194.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  195.         cli 'echo " " >>t:htmlext/mirror.list'
  196.         Update "func.mirror" 1 "Kopiere Projekt Daten ..."
  197.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  198.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  199.         run 'multiview t:htmlext/mirror.list'
  200.         GuiWindow HTMLEXT RESUME
  201.         GuiWindow #This RESUME
  202.     elseif $spdel = 2
  203.         GuiWindow HTMLEXT WAIT
  204.         GuiWindow #This WAIT
  205.         guiload htmlext:gui/func.mirror
  206.         Update "func.mirror" 2 "Sitedaten Spiegelung ..."
  207.         Update func.mirror 1 "Erstelle Site Rapport"
  208.         cli 'echo "$*SITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  209.         cli 'echo " " >>t:htmlext/mirror.list'
  210.         cli 'echo "Von:  $Sitedir" >>t:htmlext/mirror.list'
  211.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  212.         cli 'echo " " >>t:htmlext/mirror.list'
  213.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  214.         cli 'echo " " >>t:htmlext/mirror.list'
  215.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  216.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  217.         Update "func.mirror" 1 "Lösche Site Daten ..."
  218.         cli 'execute t:htmlext/mirror.dellist'
  219.         cli 'delete t:htmlext/mirror.dellist FORCE'
  220.         Update "Infobar" 1 "Spiegle $Sitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  221.         Update "func.mirror" 1 "Kopiere Daten ..."
  222.         cli 'copy $Sitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  223.  
  224.         lvuse HTMLEXT 1
  225.         EXTRACT %SiteDataMirror CLEAN mirrordir
  226.         EXTRACT %SiteDataPath CLEAN pjddir
  227.  
  228.         Update "func.mirror" 2 "Projetdaten Spiegelung ..."
  229.         Update "func.mirror" 1 "Erstelle Rapport"
  230.  
  231.         cli 'echo " " >>t:htmlext/mirror.list'
  232.         cli 'echo " " >>t:htmlext/mirror.list'
  233.         cli 'echo "$*SITENAME :  Projectdata Spiegel Rapport" >>t:htmlext/mirror.list'
  234.         cli 'echo " " >>t:htmlext/mirror.list'
  235.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  236.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  237.         cli 'echo " " >>t:htmlext/mirror.list'
  238.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  239.         cli 'echo " " >>t:htmlext/mirror.list'
  240.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  241.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  242.         Update "func.mirror" 1 "Lösche bestehende Daten"
  243.         cli 'execute t:htmlext/mirror.dellist'
  244.         cli 'delete t:htmlext/mirror.dellist FORCE'
  245.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  246.         Update "func.mirror" 1 "Kopiere Daten"
  247.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  248.         GuiWindow HTMLEXT RESUME
  249.         GuiWindow #This RESUME
  250.         run 'multiview t:htmlext/mirror.list'
  251.     endif
  252.     Update Infobar 1 "Komplett Sicherung erfolgreich abgeschlossen!"
  253.     guiquit func.mirror
  254.  
  255. xRoutine "SiteToMed"
  256.     lvuse HTMLEXT 1
  257.     EXTRACT %SiteSpiegelDir CLEAN mirrordir
  258.     EXTRACT %SitePath CLEAN Sitedir
  259.     EZREQ "Bisherige Spiegeldaten löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  260.     if $spdel = 1
  261.         guiload htmlext:gui/func.mirror
  262.         GuiWindow HTMLEXT WAIT
  263.         GuiWindow #This WAIT
  264.         Update "func.mirror" 2 "Site Spiegelung ..."
  265.         Update "func.mirror" 1 "Erstelle Rapport"
  266.         cli 'echo "$*SITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  267.         cli 'echo " " >>t:htmlext/mirror.list'
  268.         cli 'echo "Von:  $Sitedir" >>t:htmlext/mirror.list'
  269.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  270.         cli 'echo " " >>t:htmlext/mirror.list'
  271.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  272.         cli 'echo " " >>t:htmlext/mirror.list'
  273.         Update "func.mirror" 1 "Kopiere Daten ..."
  274.         Update "Infobar" 1 "Spiegle $Sitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  275.         cli 'copy $Sitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  276.         cli 'multiview t:htmlext/mirror.list'
  277.         GuiWindow HTMLEXT RESUME
  278.         GuiWindow #This RESUME
  279.     elseif $spdel = 2
  280.         guiload htmlext:gui/func.mirror
  281.         GuiWindow HTMLEXT WAIT
  282.         GuiWindow #This WAIT
  283.         Update "func.mirror" 2 "Site Spiegelung ..."
  284.         Update "func.mirror" 1 "Erstelle Rapport"
  285.         cli 'echo "$*SITENAME :  Spiegel Rapport" >t:htmlext/mirror.list'
  286.         cli 'echo " " >>t:htmlext/mirror.list'
  287.         cli 'echo "Von:  $Sitedir" >>t:htmlext/mirror.list'
  288.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  289.         cli 'echo " " >>t:htmlext/mirror.list'
  290.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  291.         cli 'echo " " >>t:htmlext/mirror.list'
  292.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  293.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  294.         Update "func.mirror" 1 "Lösche Daten ..."
  295.         cli 'execute t:htmlext/mirror.dellist'
  296.         cli 'delete t:htmlext/mirror.dellist FORCE'
  297.         Update "Infobar" 1 "Spiegle $Sitedir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  298.         Update "func.mirror" 1 "Kopiere Daten ..."
  299.         cli 'copy $Sitedir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  300.         GuiWindow HTMLEXT RESUME
  301.         GuiWindow #This RESUME
  302.         run 'multiview t:htmlext/mirror.list'
  303.     endif
  304.     Update Infobar 1 "Site Spiegelung erfolgreich abgeschlossen!"
  305.     guiquit func.mirror
  306.  
  307. xRoutine "ProjToMed"
  308.     lvuse HTMLEXT 1
  309.     EXTRACT %SiteDataMirror CLEAN mirrordir
  310.     EXTRACT %SiteDataPath CLEAN pjddir
  311.     EZREQ "Destinations Dateien vorher löschen?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  312.     if $spdel = 1
  313.         GuiLoad htmlext:gui/func.mirror
  314.         GuiWindow HTMLEXT WAIT
  315.         GuiWindow #This WAIT
  316.         Update "func.mirror" 2 "Projektdaten Speigelung"
  317.         Update "func.mirror" 1 "Erstelle Rapport"
  318.         cli 'echo "$*SITENAME :  Project Data Spiegel Rapport" >t:htmlext/mirror.list'
  319.         cli 'echo " " >>t:htmlext/mirror.list'
  320.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  321.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  322.         cli 'echo " " >>t:htmlext/mirror.list'
  323.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  324.         cli 'echo " " >>t:htmlext/mirror.list'
  325.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  326.         Update "func.mirror" 1 "Kopiere Daten"
  327.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  328.         GuiWindow HTMLEXT RESUME
  329.         GuiWindow #This RESUME
  330.         run 'multiview t:htmlext/mirror.list'
  331.     elseif $spdel = 2
  332.         guiload htmlext:gui/func.mirror
  333.         GuiWindow HTMLEXT WAIT
  334.         GuiWindow #This WAIT
  335.         Update "func.mirror" 2 "Projektdaten Speigelung"
  336.         Update "func.mirror" 1 "Erstelle Rapport"
  337.         cli 'echo "$*SITENAME :  Projectdata Spiegel Rapport" >t:htmlext/mirror.list'
  338.         cli 'echo " " >>t:htmlext/mirror.list'
  339.         cli 'echo "Von:  $pjddir" >>t:htmlext/mirror.list'
  340.         cli 'echo "Nach: $mirrordir" >>t:htmlext/mirror.list'
  341.         cli 'echo " " >>t:htmlext/mirror.list'
  342.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  343.         cli 'echo " " >>t:htmlext/mirror.list'
  344.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  345.         cli 'list $mirrordir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  346.         Update "func.mirror" 1 "Lösche Daten"
  347.         cli 'execute t:htmlext/mirror.dellist'
  348.         cli 'delete t:htmlext/mirror.dellist FORCE'
  349.         Update "Infobar" 1 "Spiegle $pjddir nach $mirrordir ... bitte haben Sie etwas Geduld!"
  350.         Update "func.mirror" 1 "Kopiere Daten"
  351.         cli 'copy $pjddir $mirrordir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  352.         GuiWindow HTMLEXT RESUME
  353.         GuiWindow #This RESUME
  354.         run 'multiview t:htmlext/mirror.list'
  355.     endif
  356.     Update Infobar 1 "Projektdaten Spiegelung erfolgreich abgeschlossen!"
  357.     GuiQuit func.mirror
  358.  
  359.  
  360. ;Spiegel Routinen: Rücksichern
  361. xRoutine "AllToLoc"
  362.     lvuse HTMLEXT 1
  363.     EXTRACT %SiteSpiegelDir CLEAN mirrordir
  364.     EXTRACT %SitePath CLEAN Sitedir
  365.     EZREQ "Sollen die bestehenden Daten vorher gelöscht werden?" "_1 Nein, weiter|_2 Ja, löschen|[_X] Abbrechen" spdel
  366.     if $spdel = 1
  367.         GuiLoad htmlext:gui/func.mirror
  368.         GuiWindow HTMLEXT WAIT
  369.         GuiWindow #This WAIT
  370.         Update "func.mirror" 2 "Site Rücksichern ..."
  371.         Update "func.mirror" 1 "Estelle Rapport"
  372.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  373.         cli 'echo " " >>t:htmlext/mirror.list'
  374.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  375.         cli 'echo "Nach Lokal: $Sitedir" >>t:htmlext/mirror.list'
  376.         cli 'echo " " >>t:htmlext/mirror.list'
  377.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  378.         cli 'echo " " >>t:htmlext/mirror.list'
  379.         Update "Infobar" 1 "Spiegle $mirrordir nach $Sitedir ... bitte haben Sie etwas Geduld!"
  380.         Update "func.mirror" 1 "Kopiere Daten"
  381.         cli 'copy $mirrordir $Sitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  382.  
  383.         lvuse HTMLEXT 1
  384.         EXTRACT %SiteDataMirror CLEAN mirrordir
  385.         EXTRACT %SiteDataPath CLEAN pjddir
  386.  
  387.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  388.         Update "func.mirror" 1 "Erstelle Rapport"
  389.         cli 'echo " " >>t:htmlext/mirror.list'
  390.         cli 'echo " " >>t:htmlext/mirror.list'
  391.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >>t:htmlext/mirror.list'
  392.         cli 'echo " " >>t:htmlext/mirror.list'
  393.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  394.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  395.         cli 'echo " " >>t:htmlext/mirror.list'
  396.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  397.         cli 'echo " " >>t:htmlext/mirror.list'
  398.         Update "Infobar" 1 "Kopiere $mirrordir nach $pjddir ... bitte haben Sie etwas Geduld!"
  399.         Update "func.mirror" 1 "Kopiere Daten"
  400.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  401.         GuiWindow HTMLEXT RESUME
  402.         GuiWindow #This RESUME
  403.         run 'multiview t:htmlext/mirror.list'
  404.     elseif $spdel = 2
  405.         GuiLoad htmlext:gui/func.mirror
  406.         GuiWindow HTMLEXT WAIT
  407.         GuiWindow #This WAIT
  408.         Update "func.mirror" 2 "Site Rücksichern ..."
  409.         Update "func.mirror" 1 "Estelle Rapport"
  410.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  411.         cli 'echo " " >>t:htmlext/mirror.list'
  412.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  413.         cli 'echo "Nach Lokal: $Sitedir" >>t:htmlext/mirror.list'
  414.         cli 'echo " " >>t:htmlext/mirror.list'
  415.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  416.         cli 'echo " " >>t:htmlext/mirror.list'
  417.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  418.         cli 'list $Sitedir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  419.         Update "func.mirror" 1 "Lösche Daten"
  420.         cli 'execute t:htmlext/mirror.dellist'
  421.         cli 'delete t:htmlext/mirror.dellist FORCE'
  422.         Update "func.mirror" 1 "Kopiere Daten"
  423.         Update "Infobar" 1 "$mirrordir nach $Sitedir rücksichern ... bitte haben Sie etwas Geduld!"
  424.         cli 'copy $mirrordir $Sitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  425.  
  426.         lvuse HTMLEXT 1
  427.         EXTRACT %SiteDataMirror CLEAN mirrordir
  428.         EXTRACT %SiteDataPath CLEAN pjddir
  429.  
  430.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  431.         Update "func.mirror" 1 "Erstelle Rapport"
  432.         cli 'echo " " >>t:htmlext/mirror.list'
  433.         cli 'echo " " >>t:htmlext/mirror.list'
  434.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >>t:htmlext/mirror.list'
  435.         cli 'echo " " >>t:htmlext/mirror.list'
  436.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  437.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  438.         cli 'echo " " >>t:htmlext/mirror.list'
  439.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  440.         cli 'echo " " >>t:htmlext/mirror.list'
  441.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  442.         cli 'list $pjddir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  443.         Update "func.mirror" 1 "Lösche Daten"
  444.         cli 'execute t:htmlext/mirror.dellist'
  445.         cli 'delete t:htmlext/mirror.dellist FORCE'
  446.         Update "Infobar" 1 "$mirrordir nach $pjddir rücksichern ... bitte haben Sie etwas Geduld!"
  447.         Update "func.mirror" 1 "Kopiere Daten"
  448.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  449.  
  450.         GuiWindow HTMLEXT RESUME
  451.         GuiWindow #This RESUME
  452.         run 'multiview t:htmlext/mirror.list'
  453.     endif
  454.     Update Infobar 1 "Site Rücksicherung erfolgreich abgeschlossen!"
  455.     GuiQuit func.mirror
  456.  
  457. xRoutine "SiteToLoc"
  458.     lvuse HTMLEXT 1
  459.     EXTRACT %SiteSpiegelDir CLEAN mirrordir
  460.     EXTRACT %SitePath CLEAN Sitedir
  461.     EZREQ "Sollen die bestehenden Daten vorher gelöscht werden?" "_1 Nein, weiter|_2 Ja, löschen|[_X] Abbrechen" spdel
  462.     if $spdel = 1
  463.         GuiLoad htmlext:gui/func.mirror
  464.         GuiWindow HTMLEXT WAIT
  465.         GuiWindow #This WAIT
  466.         Update "func.mirror" 2 "Site Rücksichern ..."
  467.         Update "func.mirror" 1 "Estelle Rapport"
  468.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  469.         cli 'echo " " >>t:htmlext/mirror.list'
  470.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  471.         cli 'echo "Nach Lokal: $Sitedir" >>t:htmlext/mirror.list'
  472.         cli 'echo " " >>t:htmlext/mirror.list'
  473.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  474.         cli 'echo " " >>t:htmlext/mirror.list'
  475.         Update "Infobar" 1 "Spiegle $mirrordir nach $Sitedir ... bitte haben Sie etwas Geduld!"
  476.         Update "func.mirror" 1 "Kopiere Daten"
  477.         cli 'copy $mirrordir $Sitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  478.         GuiWindow HTMLEXT RESUME
  479.         GuiWindow #This RESUME
  480.         run 'multiview t:htmlext/mirror.list'
  481.     elseif $spdel = 2
  482.         guiload htmlext:gui/func.mirror
  483.         GuiWindow HTMLEXT WAIT
  484.         GuiWindow #This WAIT
  485.         Update "func.mirror" 2 "Site Rücksichern ..."
  486.         Update "func.mirror" 1 "Estelle Rapport"
  487.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  488.         cli 'echo " " >>t:htmlext/mirror.list'
  489.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  490.         cli 'echo "Nach Lokal: $Sitedir" >>t:htmlext/mirror.list'
  491.         cli 'echo " " >>t:htmlext/mirror.list'
  492.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  493.         cli 'echo " " >>t:htmlext/mirror.list'
  494.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  495.         cli 'list $Sitedir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  496.         Update "func.mirror" 1 "Lösche Daten"
  497.         cli 'execute t:htmlext/mirror.dellist'
  498.         cli 'delete t:htmlext/mirror.dellist FORCE'
  499.         Update "func.mirror" 1 "Kopiere Daten"
  500.         Update "Infobar" 1 "$mirrordir nach $Sitedir rücksichern ... bitte haben Sie etwas Geduld!"
  501.         cli 'copy $mirrordir $Sitedir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  502.         GuiWindow HTMLEXT RESUME
  503.         GuiWindow #This RESUME
  504.         run 'multiview t:htmlext/mirror.list'
  505.     endif
  506.     Update Infobar 1 "Site Rücksicherung erfolgreich abgeschlossen!"
  507.     GuiQuit func.mirror
  508.  
  509. xRoutine "ProjToLoc"
  510.     lvuse HTMLEXT 1
  511.     EXTRACT %SiteDataMirror CLEAN mirrordir
  512.     EXTRACT %SiteDataPath CLEAN pjddir
  513.     EZREQ "Sollen die lokalen Dateien vorher gelöscht werde?" "_1 Nein, weiter|_2 Vorher löschen|[_X] Abbrechen" spdel
  514.     if $spdel = 1
  515.         GuiWindow HTMLEXT WAIT
  516.         GuiWindow #This WAIT
  517.         guiload htmlext:gui/func.mirror
  518.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  519.         Update "func.mirror" 1 "Erstelle Rapport"
  520.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  521.         cli 'echo " " >>t:htmlext/mirror.list'
  522.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  523.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  524.         cli 'echo " " >>t:htmlext/mirror.list'
  525.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  526.         cli 'echo " " >>t:htmlext/mirror.list'
  527.         Update "Infobar" 1 "Kopiere $mirrordir nach $pjddir ... bitte haben Sie etwas Geduld!"
  528.         Update "func.mirror" 1 "Kopiere Daten"
  529.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  530.         GuiWindow HTMLEXT RESUME
  531.         GuiWindow #This RESUME
  532.         run 'multiview t:htmlext/mirror.list'
  533.     elseif $spdel = 2
  534.         GuiWindow HTMLEXT WAIT
  535.         GuiWindow #This WAIT
  536.         guiload htmlext:gui/func.mirror
  537.         Update "func.mirror" 2 "Projektdaten rücksichern ..."
  538.         Update "func.mirror" 1 "Erstelle Rapport"
  539.         cli 'echo "$*SITENAME :  Rücksicherungs Rapport" >t:htmlext/mirror.list'
  540.         cli 'echo " " >>t:htmlext/mirror.list'
  541.         cli 'echo "Vom Spiegel: $mirrordir" >>t:htmlext/mirror.list'
  542.         cli 'echo "Nach Lokal: $pjddir" >>t:htmlext/mirror.list'
  543.         cli 'echo " " >>t:htmlext/mirror.list'
  544.         cli 'echo "===============================================" >>t:htmlext/mirror.list'
  545.         cli 'echo " " >>t:htmlext/mirror.list'
  546.         Update "Infobar" 1 "Lösche Spiegel Dateien ... $mirrordir ... bitte haben Sie etwas Geduld!"
  547.         cli 'list $pjddir LFORMAT="delete %P%N FORCE >>t:htmlext/mirror.list" FILES ALL >>t:htmlext/mirror.dellist'
  548.         Update "func.mirror" 1 "Lösche Daten"
  549.         cli 'execute t:htmlext/mirror.dellist'
  550.         cli 'delete t:htmlext/mirror.dellist FORCE'
  551.         Update "Infobar" 1 "$mirrordir nach $pjddir rücksichern ... bitte haben Sie etwas Geduld!"
  552.         Update "func.mirror" 1 "Kopiere Daten"
  553.         cli 'copy $mirrordir $pjddir ALL CLONE NOREQ >>t:htmlext/mirror.list'
  554.         GuiWindow HTMLEXT RESUME
  555.         GuiWindow #This RESUME
  556.         run 'multiview t:htmlext/mirror.list'
  557.     endif
  558.     Update Infobar 1 "Projektdaten Rücksicherung erfolgreich abgeschlossen!"
  559.     GuiQuit func.mirror
  560.  
  561.  
  562.